home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / dos / teachaid / pccai / caiarc1.exe / DEMO.CAI < prev    next >
Text File  |  1993-12-06  |  17KB  |  689 lines
  1. .rem                                                                 
  2. .rem -----------------PRESS CTRL-G (Go) TO RUN THIS PROGRAM--------- 
  3. .rem                                                                 
  4. @OPTION ESCAPE:THATSALL
  5. @MON(*12:ISVGA*)
  6. @GOTO:ISNOTVGA
  7. @LABEL:ISVGA
  8. .screen 12
  9. @SHELL(*caipcx cailogo.pcx 7,0,0*)
  10. .wait 2
  11. .locate 25,1
  12. @LABEL:ISNOTVGA
  13. .screen 0
  14. .color 15,1
  15. .cls
  16.  
  17.                                  PC-CAI 2.10
  18.  
  19.                      (C)Copyright Alan C. Elliott, 1986-93
  20.                   Portions (C) Microsoft Corporation 1982-87
  21.  
  22.  
  23.  
  24. .col 12,1
  25. .cen(* WELCOME TO THE PC-CAI DEMO! *)
  26. .col 7,1
  27.  
  28. This demo will use the CGA graphics capabilities of your computer. If you are
  29. currently using an IBM monochrome monitor without graphics capabilities, some
  30. of the graphic images will not appear in the demo.
  31.  
  32. This software is distributed under the user supported concept, and you may
  33. copy or give it away only under the conditions outlined in the manual.
  34. Thanks for your interest and support.
  35.  
  36. To end the demo at any time, press the Esc key.
  37. .voice(*PCCAI*)
  38. .locate 25,1
  39. .pause
  40. .screen 1
  41. .CIR CENTER=(160, 265) radius=300 color=2
  42. .CIR CENTER=(160, 300) radius=300 color=2
  43. .PAINT CENTER=(170, 20) color=2 bound=2
  44. .CIR CENTER=(150, 6) radius=5
  45. .CIR CENTER=(160, 6) radius=5
  46. .CIR CENTER=(170, 6) radius=5
  47. .PSET 30, 44
  48. .DRAW (*c1u20f7g7*)
  49. .PAINT CENTER=(32, 28) color=1 bound=1
  50. .PSET 230, 24
  51. .DRAW (*c1u20f7g7*)
  52. .PAINT CENTER=(232, 8) color=1 bound=1
  53. .PSET 300, 44
  54. .DRAW (*c1u20f7g7*)
  55. .PAINT CENTER=(302, 28) color=1 bound=1
  56. .PSET 90, 24)
  57. .DRAW (*c1u20f7g7*)
  58. .PAINT CENTER=(92, 8) color=1 bound=1
  59. .locate 21,1
  60. Here comes something new . . .
  61. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  62. .ANIMATE (1,100)-(250,100) STEPX=4 STEPY=0 PAUSE=1
  63. .voice(*onesmall*)
  64. .screen 0
  65. .color 15,1
  66. .CLS
  67.  
  68.                            I N T R O D U C I N G ...
  69.  
  70.  
  71.  
  72.  
  73.                      █████  █████     █████   ███    ███
  74.                      █   █  █         █      █   █    █
  75.                      █   █  █         █      █   █    █
  76.                      █   █  █    ████ █      █   █    █
  77.                      █████  █         █      █████    █
  78.                      █      █         █      █   █    █
  79.                      █      █████     █████  █   █   ███
  80.  
  81.  
  82. PC-CAI is a Personal Computer - Computer Aided Instruction language. It is
  83. a language specifically designed to implement the personal computer as a
  84. tutor.
  85. .color 15,1
  86. .locate 24,1
  87. .pause (*Please press ENTER to continue*)
  88. .screen 1
  89. .cls
  90. .pset 1,100
  91. .draw (*C2r320*)
  92. .circle center=(160,100) radius=50 color=2 start=0 stop=3.14
  93. .paint center=(160,98) color=2 bound=2
  94. .PSET 250,150
  95. .DRAW (*e3u30h4e2h7e4h3r2f3g4f7g2f4r6*)
  96. .DRAW (*h4e2h7e4h3r2f3g4f7g2f4*)
  97. .DRAW (*e4h7e4h3r2f3g4f7g4d30f3*)
  98. .CIRCLE CENTER=(256,100) RADIUS=30 COLOR=1
  99. .CIRCLE CENTER=(245,102) RADIUS=6 COLOR=1
  100. .CIRCLE CENTER=(265,107) RADIUS=11 COLOR=1
  101. .CIRCLE CENTER=(256,97) RADIUS=5 COLOR=1
  102. .CIRCLE CENTER=(256,92) RADIUS=7 COLOR=1
  103. .CIRCLE CENTER=(245,90) RADIUS=9 COLOR=1
  104. .PSET 160,100
  105. .DRAW (*c2u90*)
  106. .PSET 160,100
  107. .DRAW (*c2e90*)
  108. .PSET 160,100
  109. .DRAW (*c2h90*)
  110. .PSET 10,160
  111. .DRAW (*C3R310*)
  112. .PSET 1,180
  113. .DRAW (*C3R310*)
  114. .PSET 20,160
  115. .DRAW (*g20r20e10l20r20e10*)
  116. .DRAW (*g20r20e10l20r20e10*)
  117. .DRAW (*g20r20e10l20r20e10*)
  118. .DRAW (*g20r20e10l20r20e10*)
  119. .DRAW (*g20r20e10l20r20e10*)
  120. .DRAW (*g20r20e10l20r20e10*)
  121. .DRAW (*g20r20e10l20r20e10*)
  122. .DRAW (*g20r20e10l20r20e10*)
  123. .DRAW (*g20r20e10l20r20e10*)
  124. .DRAW (*g20r20e10l20r20e10*)
  125. .DRAW (*g20r20e10l20r20e10*)
  126. .DRAW (*g20r20e10l20r20e10*)
  127. .DRAW (*g20r20e10l20r20e10*)
  128. .DRAW (*g20r20e10l20r20e10*)
  129. .DRAW (*g20r20e10l20r20e10*)
  130. .pallette 0
  131. .pallette 1
  132. .pallette 0
  133. .pallette 1
  134. .pallette 0
  135. .pallette 1
  136. .pallette 0
  137. .PSET 50,160
  138. .DRAW (*c1e10r1g10h8r1f7u5*)
  139. .PSET 200,180
  140. .DRAW (*c1e10r1g10h8r1f7u5*)
  141. .PSET 250,152
  142. .DRAW (*c1e10r1g10h8r1f7u5*)
  143. .get beetle.img
  144. .play (*mfo3l16ap4a*)
  145. .move (20,155)-(100,155) steps=50
  146. .play (*mfo3l16ap4a*)
  147. .put 100,155
  148. .move (100,155)-(250,155) steps=50
  149. .play (*mfo3l16ap4ap4a*)
  150. .put 250,155
  151. .locate 1,1
  152. .center (*The Dawn of a New Day*)
  153. .center (*in Computer Aided Instruction!*)
  154. .locate 24,1
  155. .pause (*Please press ENTER to continue*)
  156. .rem skip this part if not VGA
  157. @MON(*12:VGA*)
  158. @GOTO:NONVGA
  159. @LABEL:VGA
  160. .screen 0
  161. .color 15,1
  162. .cls
  163. .color 3
  164. .cls
  165. PC-CAI allows the computer to act as a teacher and tester. Instruction, such
  166. as what you are reading now, may be displayed on the screen. The learner
  167. reads the instructions at his or her own pace.  Special effects may be added:
  168.  
  169. .COLOR 19
  170. Color changes, and blinking text.
  171. .color normal
  172.  
  173. .pause (*Press the ENTER key to hear some music . . .*)
  174. .play (*mft200o2l8dggggg4.a8bbbbb4.o3l8d4dedo2bgabbaag4*)
  175.  
  176. .locate 20,30
  177. .color reverse
  178. LOOK! YOU HAVE COMPLETE CONTROL OVER THE TEXT
  179. .COLOR 3
  180. .locate 10,1
  181. With locator instructions, notices may be placed anywhere on the screen.
  182. Look for the LOOK! placed on the screen below this text.
  183.  
  184. .cen (*Or CENTER TEXT on the screen*)
  185.  
  186. After instruction is given, questions may be asked to reinforce the learning.
  187. All of this is performed with an easy to use set of instructions created
  188. specifically for this purpose.
  189. .locate 25,1
  190. .pause (*Please press ENTER to continue*)
  191. .cls
  192. Now let's see what you have learned...
  193.  
  194.  
  195. @BEGIN QUESTION
  196. .col 10
  197.                               ANSWER THIS QUESTION
  198.  
  199.  
  200. .col 3
  201. @read (*What is the name of this language? *)
  202. @try 3
  203. @right (*PC-CAI*) nocase
  204. .color 10
  205.  
  206. THAT'S EXACTLY CORRECT!
  207.  
  208. With PC-CAI, you can check for answers where case may or may not be
  209. important. Also, you can check for exact answers, or answer that "sound"
  210. right. You'll see what I mean later...
  211.  
  212. .play (*mft200l16o2cccdddeeefffgggaaabbbo3ccc*)
  213. .locate 24,1
  214. .pau
  215. @wrong
  216. .col 12
  217.  
  218. Oops, try a little harder...
  219.  
  220. I'm looking for the name of the Personal Computer-Computer Assisted
  221. Instruction language.  (Hint:PC-CAI)
  222.  
  223. With PC-CAI you can specify expected responses to questions, and use the
  224. answer to cause the program to branch to other parts of the tutorial.
  225.  
  226. .Play  (*mfp2p2p2*)
  227. @WRONG FINAL
  228. .col 12
  229.  
  230. The answer is PC-CAI.
  231. .locate 24,1
  232. .pause
  233. @end question
  234. .col 11
  235. .cls
  236. .color 15,4
  237. .blank 2
  238. .color 0,15
  239. .blank 2
  240. .color 15,4
  241. .blank 2
  242. .color 0,15
  243. .blank 2
  244. .color 15,4
  245. .blank 2
  246. .color 0,15
  247. .blank 2
  248. .color 15,4
  249. .blank 2
  250. .color 0,15
  251. .blank 2
  252. .color 15,4
  253. .blank 2
  254. .color 0,15
  255. .blank 2
  256. .color 15,4
  257. .blank 2
  258. .color 15,1
  259. .locate 1,1 (*  * * * * * * * * * *  *)
  260. .locate 2,1 (*                       *)
  261. .locate 3,1 (*  * * * * * * * * * *  *)
  262. .locate 4,1 (*                       *)
  263. .locate 5,1 (*  * * * * * * * * * *  *)
  264. .locate 6,1 (*                       *)
  265. .locate 7,1 (*  * * * * * * * * * *  *)
  266. .locate 8,1 (*                       *)
  267. .locate 9,1 (*  * * * * * * * * * *  *)
  268. .locate 10,1 (*                       *)
  269. .locate 12,1
  270. .CENTER (*ARE YOU GOOD AT AMERICAN HISTORY?*)
  271. .skip 1
  272. .COLOR 9
  273. .CENTER (*HERE'S YOUR CHANCE TO SHOW*)
  274. .skip 1
  275. .COLOR 12
  276. .CENTER (*YOUR TRUE COLORS*)
  277. .PLAY (*T180O2L8GEC4E4G4O3C2*)
  278. .locate 24,1
  279. .pause
  280. .cls
  281. @begin question
  282. .col 3
  283.  
  284. @read (*Who was the first president of the USA ?*)
  285. @trys 3
  286. @right (*washington*) keyword
  287. .col 10
  288. George Washington is correct!
  289. .PLAY (*T255O1CDEFGABO2C*)
  290. .play (*mfp1p1*)
  291. @wrong (*lincoln*) keyword
  292. .color 12
  293. Lincoln was president during the Civil War
  294.  
  295. @wrong (*jefferson*)
  296. .col 12
  297. Thomas Jefferson was an early president, and he was the author of
  298. the Declaration of Independence.
  299.  
  300. @wrong
  301. .color 25
  302. HINT:
  303. .color 11
  304. The capitol of the United States was named after him.
  305.  
  306. .PAUSE (*Press ENTER to continue.*)
  307. @wrong final
  308. .col 3
  309.  
  310. The answer is GEORGE WASHINGTON.
  311.  
  312. @end question
  313. .locate 24,1
  314. .pau(*Please press ENTER*)
  315. .screen 1
  316. .cls
  317. .pcx testpcx.pcx 0,0
  318. .locate 1,1
  319. .CEN(*  DISPLAY PCX PAINTBRUSH TYPE GRAPHICS  *)
  320. .locate 25,1 (*                                        *)
  321. .locate 25,1
  322. .pause (* Press Enter*)
  323. .locate 25,1 (*            *)
  324. .locate 1,1
  325. .cen (* COMBINE PCX GRAPHICS AND PC-CAI IMAGES *)
  326. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  327. .ANIMATE (30,100)-(280,100) STEPX=4 STEPY=0 PAUSE=1
  328. .locate 25,1
  329. .pause (* Press Enter*)
  330. .screen 0
  331. .cls
  332. .col 3
  333. .cen(*HERE IS AN EXAMPLE -- "FROM HOW TO USE A PC"*)
  334.  
  335. .col normal
  336.  
  337.                               ┌────────────────┐
  338.                               │ ┌──────────┐   │
  339.                               │ │          │ ▄ │
  340.                               │ │          │   │
  341.                               │ │          │ ° │
  342.                               │ └──────────┘ ° │
  343.                         ┌─────┴════════════════┴─────┐
  344.                         │  ▄      ▄▄▄──▄▄▄ ▄▄▄──▄▄▄  │
  345.                         │ │││││││ █▄▄__▄▄█ █▄▄__▄▄█  │
  346.                         └────────────────────────────┘
  347.  
  348.  
  349. .locate 7,35
  350. .color 10
  351. WELCOME
  352. .color 7
  353. .play (*mft160o2l8cdep2*)
  354. .locate 7,35 (*       *)
  355. .locate 7,36
  356. .color 12
  357. TO THE
  358. .color 7
  359. .play (*fgap2*)
  360. .color 14
  361. .loc 6,35 (*  IBM*)
  362. .loc 7,35 (*PERSONAL*)
  363. .loc 8,35 (*COMPUTER*)
  364. .play (*bo3c*)
  365. .col 14
  366. .locate 14,64
  367. ╒══════╕
  368. .loc 15,64
  369. │      │
  370. .loc 16,64
  371. │┌────┐│
  372. .loc 17,64
  373. ││──┘││
  374. .loc 18,64
  375. │└────┘│
  376. .loc 19,64
  377. │      │
  378. .loc 20,64
  379. │      │
  380. .loc 21,64
  381. ╘══════╛
  382. .loc 14,1
  383. .color 3
  384.  
  385. The IBM Personal Computer awaits your every command.
  386. First, we must know how to tell it to do something. After
  387. typing your answer to a question, you must press the
  388. ENTER key (sometimes called the RETURN key). This key is
  389. located on the right side of the keyboard. It looks like
  390. the one pictured here.
  391.  
  392. .col 14
  393. .pau(*Press the ENTER key once *)
  394. .col normal
  395. .cls
  396. .loc 1,1
  397.      ┌──╥──┐┌──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥─────╥─────╥─────┐
  398.      │F1║F2││ES║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║ -- ║NumLk║ScrLk│
  399.      ╞══╬══╡╞══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩═╦═══╬══╦══╬══╦══╡
  400.      │F3║F4││-│║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║  │║7 ║8 ║9 ║- │
  401.      ╞══╬══╡╞═══╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣─┘╠══╬══╬══╬══╡
  402.      │F5║F6││Ctrl║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║   ║4 ║5 ║6 ║  │
  403.      ╞══╬══╡╞═══╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬═══╬══╬══╬══╣  │
  404.      │F7║F8││  ║\ ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║ * ║1 ║2 ║3 ║+ │
  405.      ╞══╬══╡╞═══╩═╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬═══╩══╬══╩══╣  │
  406.      │F9║F0││ Alt ║                            ║CapLk║  0   ║  .  ║  │
  407.      └──╨──┘└─────╨────────────────────────────╨─────╨──────╨─────╨──┘
  408. .loc 1,16
  409. .color reverse
  410. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  411. .loc 2,16
  412. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  413. .loc 3,16
  414. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  415. .loc 4,17
  416. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  417. .loc 5,17
  418. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  419. .loc 6,18
  420. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  421. .loc 7,18
  422. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  423. .loc 8,20
  424. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  425. .loc 9,19
  426. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  427. .loc 10,19
  428. ║                            ║
  429. .loc 11,19
  430. ╨────────────────────────────╨
  431. .color 3
  432. .LOCATE 15,1
  433. .col 3
  434. This is a simple picture of the IBM Personal Computer Keyboard. Notice that
  435. it looks very similar to a standard typewriter keyboard, especially the
  436. high-lighted portion.
  437.  
  438. .col 14
  439. .pau (*Please press ENTER*)
  440. .color normal
  441. .loc 1,16
  442. ╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥──╥
  443. .loc 2,16
  444. ║ 1║ 2║ 3║ 4║ 5║ 6║ 7║ 8║ 9║ 0║ -║ =║
  445. .loc 3,16
  446. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩
  447. .loc 4,17
  448. ║Q ║W ║E ║R ║T ║Y ║U ║I ║O ║P ║[ ║]  ║
  449. .loc 5,17
  450. ╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦═╩╦══╣
  451. .loc 6,18
  452. ║A ║S ║D ║F ║G ║H ║J ║K ║L ║; ║' ║` ║
  453. .loc 7,18
  454. ╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩═╦╩══╬
  455. .loc 8,20
  456. ║Z ║X ║C ║V ║B ║N ║M ║, ║. ║/ ║  ║
  457. .loc 9,19
  458. ╦╩══╩══╩══╩══╩══╩══╩══╩══╩══╩╦═╩═══╬
  459. .loc 10,19
  460. ║                            ║
  461. .loc 11,19
  462. ╨────────────────────────────╨
  463. .color reverse
  464. .locate 5,18
  465. ╦═╩╦
  466. .locate 6,18
  467. ║A ║
  468. .locate 7,18
  469. ╩═╦╩
  470. .col 3
  471. .loc 15,1
  472. .bla 9
  473. .loc 15,1
  474. Let's try using the keyboard. Locate the "A" on the keyboard and press it
  475. once. Notice that a lowercase "a" appears on the screen. Press the ENTER key
  476. after you have typed an "a".
  477. @Begin question
  478. @trys 7
  479.  
  480. @write
  481.  
  482. .col 14
  483. @READ (*Press the "A" key once, and press the ENTER key :*)
  484. @right (*A*) exact nocase
  485. .col 10
  486. Very, good. Let's continue.
  487. .play (*t160l16o2cdefgabo3cp2p2*)
  488. @wrong
  489. .col 12
  490. Woops, enter a single letter "A", and press the Enter key.
  491. .play (*o1a1p1p1*)
  492. .loc 19,1
  493. .bla 4
  494. .loc 19,1
  495. @end question
  496. .col 14
  497. .loc 15,1
  498. .bla 9
  499. .loc 17,1
  500. .cen(*GET THE IDEA???*)
  501. .locate 24,1
  502. .pause
  503. .col 3
  504. .cls
  505. .locate 2,1
  506. That is a brief view of what PC-CAI can do . . .
  507. .color 11
  508. .loc  4,1
  509. .bla 3
  510. .loc 4,1
  511.  
  512.                  -You can create your own tutorials with PC-CAI
  513.  
  514.                     -You can use it as an instructional tool
  515.  
  516.               -You can integrate color, sound, animation and more!
  517.  
  518.  
  519. No previous programming is required to use PC-CAI, you can begin by using the
  520. PC-CAI Program Generator, and PC-CAI will allow you to be more sophisticated
  521. in your tutorials as you learn how to use it more.
  522.  
  523. .color 10
  524.  
  525.  
  526.  
  527.           NOW LET'S SEE ANOTHER EXAMPLE OF PC-CAI'S CAPABILITIES. . .
  528.  
  529. .locate 24,1
  530. .pau (*Please press ENTER*)
  531. .color normal
  532. .rem---------------------------------THIS IS THE ALPHABET PART
  533. @LABEL:ALPHA
  534. .cls
  535. .screen 1
  536. .get a.img
  537. .move (0,0)-(0,70) steps=10
  538. .PLAY (*msmbt200o1l4ggo2ddeed2cco1bbmsa8a8a8a8g2*)
  539. .get l.img
  540. .move (0,0)-(30,70) steps=10
  541. .get p.img
  542. .move (0,0)-(60,70) steps=10
  543. .get h.img
  544. .move (0,0)-(90,70) steps=10
  545. .get a.img
  546. .move (0,0)-(120,70) steps=10
  547. .get b.img
  548. .move (0,0)-(150,70) steps=10
  549. .get e.img
  550. .move (0,0)-(180,70) steps=10
  551. .get t.img
  552. .move (0,0)-(210,70) steps=10
  553. .PLAY (*mbt200o2ddcco1bba2o2ddcco1bba2o1ggo2ddeed2cco1bbaag2*)
  554. .loc 23,1
  555. .play(*mfp16*)
  556. .pau
  557. .cls
  558. .get a.img
  559. .move (0,0)-(20,70) steps=15
  560. .get apple.img
  561. .move (200,0)-(145,70)
  562. .loc 17,1
  563. .cen (*APPLE*)
  564. .get good.img
  565. @begin
  566. .loc 23,1 (*                        *)
  567. .loc 23,1
  568. @read (*PRESS THE LETTER A : *)
  569. @right (*A*) force nocase auto
  570. .play (*mbo3l32gabo4c*)
  571. .put 50,10
  572. .put 100,10
  573. .put 150,10
  574. .put 200,10
  575. @end
  576. .loc 23,1 (*                        *)
  577. .loc 23,1
  578. .pau
  579. .cls
  580. .get b.img
  581. .move (0,0)-(20,70) steps=20
  582. .get ball.img
  583. .move ((0,0)-(310,190) steps=25
  584. .play (*o4l16a*)
  585. .put 310,190
  586. .move (310,190)-(0,100)
  587. .play (*o4l16a*)
  588. .put 0,100
  589. .move (0,100)-(145,70)
  590. .play (*o4l16a*)
  591. .loc 17,1
  592. .cen (*BOUNCING BALL*)
  593. .get good.img
  594. @begin
  595. .loc 23,1 (*                        *)
  596. .loc 23,1
  597. @read (*PRESS THE LETTER B : *)
  598. @right (*B*) force nocase auto
  599. .play (*mbo3l32gabo4c*)
  600. .put 50,10
  601. .put 100,10
  602. .put 150,10
  603. .put 200,10
  604. @end
  605. .loc 23,1 (*                        *)
  606. .loc 23,1
  607. .pau
  608. .cls
  609. .get c.img
  610. .move (0,0)-(20,70) steps=20
  611. .LOAD CAT1,CAT2,CAT3,CAT4
  612. .ANIMATE (1,100)-(134,100) STEPX=2 STEPY=0 PAUSE=1
  613. .get cat1
  614. .put 134,100
  615. .loc 17,1
  616. .cen(*CAT*)
  617. .get good.img
  618. @begin
  619. .loc 23,1 (*                        *)
  620. .loc 23,1
  621. @read (*PRESS THE LETTER C : *)
  622. @right (*C*) force nocase auto
  623. .play (*mbo3l32gabo4c*)
  624. .put 50,10
  625. .put 100,10
  626. .put 150,10
  627. .put 200,10
  628. @end
  629. .loc 23,1 (*                        *)
  630. .loc 23,1
  631. .pau
  632. @label :tmp
  633. .cls
  634. .get d.img
  635. .PSET  140,70
  636. .DRAW (*c1r60d8l3d6r3d41l60u55*)
  637. .CIRCLE center=(170,95) radius=10 color=1
  638. .CIRCLE center=(170,109) radius=4 color=1 start=0 stop=3.14
  639. .CIRCLE center=(170,119) radius=4 color=1 start=3.14 stop=0
  640. .PSET  174,109
  641. .DRAW (*c1d10*)
  642. .PSET 166,119
  643. .DRAW (*c1u10*)
  644. .paint center=(142,72) color=2 bound=1
  645. .move (0,0)-(20,70) steps=20
  646. .loc 17,18
  647. DISKETTE
  648. .get good.img
  649. @begin
  650. .loc 23,1 (*                        *)
  651. .loc 23,1
  652. @read (*PRESS THE LETTER D : *)
  653. @right (*D*) force nocase auto
  654. .play (*mbo3l32gabo4c*)
  655. .put 50,10
  656. .put 100,10
  657. .put 150,10
  658. .put 200,10
  659. @end
  660. .loc 23,1 (*                        *)
  661. .loc 23,1
  662. .pau
  663. .cls
  664. @label:tmp
  665. .scr 0
  666. .color 15,0
  667.  
  668.     ┌─────────────────────────────────────────────────────────────────────┐
  669.     │                                                                     │
  670.     │                             FANTASTIC!!                             │
  671.     │                                                                     │
  672.     │            That's a look at some of PC-CAI's capabilities.          │
  673.     │                                                                     │
  674.     │                           What you can do                           │
  675.     │                                                                     │
  676.     │                              Is limited                             │
  677.     │                                                                     │
  678.     │                     Only by what you can imagine!                   │
  679.     │                                                                     │
  680.     │                                                                     │
  681.     └─────────────────────────────────────────────────────────────────────┘
  682. .locate 24,1
  683. .pause
  684. @label:thatsall
  685. .cls
  686. Come back again sometime!
  687. .locate 24,1
  688. .pause
  689.